[!FLOAT_CHECK_ERRNO] (IN_FLOAT): New definition.

(Flog): Fix argument of `log'.

diff --git a/src/floatfns.c b/src/floatfns.c
index 1b6487afae889c36eb221896cde580e0dc2142ee..f0222098025b0d7d907328bdd3fa23640e645949 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -154,6 +154,7 @@ static char *float_error_fn_name;
     }                                                  \
   } while (0)
 #else
+#define IN_FLOAT(d, name, num) (in_float = 1, (d), in_float = 0)
 #define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0)
 #endif
 
@@ -471,7 +472,7 @@ If second optional argument BASE is given, return log ARG using that base.")
       if (b == 10.0)
        IN_FLOAT2 (d = log10 (d), "log", arg, base);
       else
-       IN_FLOAT2 (d = log (arg) / log (b), "log", arg, base);
+       IN_FLOAT2 (d = log (d) / log (b), "log", arg, base);
     }
   return make_float (d);
 }